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APPENDIX A 



# ! /usr/local/bin/perl 

5 # Copyright (c) 2001 

# LSI Logic, Inc. 
# 

# Andy Rankin 

# Ph; (970) 206-5107 

10 # email: arankin@lsil.com 
# 

# sp2vlog.pl 
# 

# Usage: sp2vlog.pl -s spfile [-d dfile] [-h] 
15 # 

# -s <spfile> Spice transistor level file to be 
translated (required) 

# -d <dfile> Data file from vlog2sp.pl containing port 
O types (defaults to basename .data) 

yy 20 # -h prints this message 



pjl # ADD CLEANER TO THIS FILE TO GET + SIGNS REMOVED 

U # ADD SOMETHING TO VL0G2SP TO MAKE SPICE COMPATIBLE LINE LENGTHS 

m 25 

O ################ 

9 " # Set Defaults # 

M ################ 

p 30 $tech= n gflx"; 

m $subckt_lead_string= n x" ; 

jj ################################ 

# Parse Command Line Arguments # 
35 ################################ 

require "newgetopt .pi" ; 
&NGetOpt ("s:s n , n d:s", "h") ; 

40 if ($opt_h) { &usage; } 
if ($opt_s) { 

$spf ile=$opt_s ; 

} 

else { 

45 print ( " \nERR0R : Must specify spice file\n n ); 

&usage; 

} 

$basename= "basename $spfile . sp"; 
50 chop ($basename) ; 
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if ($opt_d) { $dfile=$opt_d; } 
else { $df ile=$basename . " .data"; } 

############################# 

5 # Open spice and data files # 
############################# 

open (INFILE, n $spfile M ) || die ("Unable to open $spfile for 
reading : $ I \n\n" ) ; 
10 @inf ile=<INFILE> ; 
close (INFILE) ; 

open (INFILE, "$dfile") || dieO'Unable to open $dfile for reading: 
$i\n\n») ; 
15 @dfile=<INFILE>; 
close (INFILE) ; 

foreach (@infile) { 
^ @pin__list= () ; 

9 20 tr/A-Z/a-z/; 
;f? if (/"\s*.subckt\s/) { 

# If the line is a spice subckt definition, it is the 
^ same as a module definition in 

I** # verilog. Split the line to extract the subcircuit 

25 name and pins ; 

K chop; 

^ ($f oo, $module,@subckt_pins) =split (/\s+/) ; 

/ ©module jdns=&remove_busses (@subckt_pins) ; # remove 

^ bus notation from subcircuit pins 

M 30 $pinlist=join(" , " , ©module jpins) ; 

C;f print ("module $module \( $pinlist \)\;\n n ); # print 

U! the verilog module definition line 

fi- 

# For each pin on the module, determine the port type 
35 from the data file: 

foreach $pin (@module_pins) { 
foreach $port (@dfile) { 

if ($port =~ /$module $pin (\S+)/) { 

$port_type=$l; last; } 
40 else { $port_type=" " ; } 

} 

@indices=&consolidate_bus ($pin, @subckt_pins) ; # 
If it's a bus, add bus notation 

45 # Print the input/output definitions with bus 

notation as necessary: 

if ($port_type) { 

if (©indices) { print (" $port_type 
[$indices [$#indices] : $indices [0] ] $pin\;\n n ); } 
50 else { print ( "$port_type $pin\;\n n ); } 

} 
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# Print wire definitions for all the internal signals: 
foreach (@dfile) { 

5 if (/$module (\S+) wire/) { print("wire $l\;\n"); 

} 

} 

} 

10 elsif (/ > '\s*.ends\s*/) { 

print ( "endmodule\n\n" ) ; 

} 

elsif (/"\s*x/) { 

srw/ ; 

15 s/\s+$//; 

@signal_jaames=split (/\s+/) ; 

$instance__name=shif t (@signal_names) ; # Shift the 

instance name from front of line 

$instance_name=~s/^$subckt_lead_string// ; # Remove the 

" : ;:f 20 X from the 

$subckt_name=pop (@signal_names) ; # Pop the 

module name from the end of line 
J : f @signal_names=&clean_signals (@signal_names) ; 

25 #grep the spice file for the subcircuit definition, 

M : and extract the pin names : 

W ($f oo, $f oo2,@subckt_pins) =split (/\s+/ , "grep -i 

f " . SUBCKT $subckt_name " $spfile") ; 

y 30 # Verify that the number of signals in the spice 

U subcircuit call matches the number of 

ul # pins in the spice subcircuit definition: 

U if ($#signal_names i= $#subckt_pins) { 

die ("ERROR: $instance_name $subckt_name number of 

35 pins do not match\n\n") ; 

} 

# Pair up the signal names in the spice subcircuit 
call with the pin names 

40 # on the spice subcircuit definition: 

for ($i=0; $i<=$#signal_names; $i++) { 
$subckt_pins [$i] =~tr/A-Z/a-z/ ; 

push (@pin__list , " . $subckt_pins [$i] \ ($signal_names [$i] \) ") ; 
45 } 

# Join the list of signal/pin pairs and print it with 
the module instantiation: 

$pin_string=join(" , n ,@pin_list) ; 
50 print ( M $subckt_name $instance_name ( $pin_string 

)\;\n»); 
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} 



} 

sub usage { 

# This subroutine prints usage information 

print ( "\nusage : sp2vlog.pl -s spfile [-d dfile] [-h]\n\n n ); 

print ("\t-s <spf ile>\tspice transistor level file to be 
translated (required) \n" ) ; 

print ( M \t-d <df ile>\tdata file from vlog2sp.pl containing 
port types (defaults to basename . data) \n" ) ; 

print ( "\t-h\t\tprints this message\n n ); 

die ("\n") ; 

} 

sub consolidate_bus { 

# This subroutine finds the indices for a given pin, sorts 
them, and returns them. 

my ($pin / @pins) = @_; 
my (©indices) ; 

foreach (@pins) { 

if (/$pin\[(\d+)\]/) { 
push (©indices , $1) ; 

} 

} 

@indices=sort (©indices) ; 

} 

sub remove_busses { 

# This subroutine removes bus notation from the pins on the 
spice subcircuit line. 

# It includes each bus as one pin in the pinlist. It 
returns the pin list. 

my (©pinlist) = @_; 
my (©newpinlist) ; 

foreach (©pinlist) { 
s/\[\d+\]//g; 

if (&element_exists ($_, ©newpinlist) ) { } 
else { push (©newpinlist , $_) ; } 

} 
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return (©newpinlist) ; 

} 

sub element_exists { 

# This subroutine checks to see if an element exists in an 
array, 

my ( $ element , ©array) 

foreach (©array) { 

if ($_ eq $element) { return (1); } 

} 

return (0) ; 

} 

sub clean_signals { 

# This subroutine converts vss and vdd signals to verilog 
logic 0 and logic 1. It also 

# removes dummy pins . 

my (©signals) = @_; 

foreach (©signals) { 

if ($_ eq "vss") { $_ = "1'bO"; } 
if ($_ eq "vdd") { $_ = "l'bl"; } 
if (/^dummy/) { $_ = " " ; } 

} 

©signals; 

} 
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